﻿Imports System.ComponentModel
Imports System.Configuration.Install
Imports System.IO

Public Class MyOtherInstaller

	Public Sub New()
		MyBase.New()

		'This call is required by the Component Designer.
		InitializeComponent()

		'Add initialization code after the call to InitializeComponent
	End Sub

	Public Overrides Sub Install(ByVal stateSaver As System.Collections.IDictionary)
		MyBase.Install(stateSaver)

		stateSaver.Add("OtherMSIPath", Context.Parameters("OtherMSIPath"))
	End Sub

	Public Overrides Sub Commit(ByVal savedState As System.Collections.IDictionary)
		MyBase.Commit(savedState)
		System.Diagnostics.Process.Start("MSIEXEC.EXE", "/i """ & savedState.Item("OtherMSIPath").ToString & """ /qb")
	End Sub

End Class
